home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #113 (1991-01)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #113 (1991-01)(Amiga User Group Deutschland e.V.).adf / Rätsel / neun (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  4KB  |  141 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6. '***********************************************************************
  7. '*     Detlef Kornatz                                                  *
  8. '*     Feuerbachstraße 6                                               *
  9. '*     D-4300 ESSEN 1                                                  *
  10. '***********************************************************************
  11.  
  12. SCREEN 2,320,258,5,1
  13. WINDOW 2,"           Die neun Bäume ",,0,2
  14.   
  15.   PALETTE 0,0.34,0.44,0       
  16.   PALETTE 1,0.2,0.2,0.2
  17.   PALETTE 2,0.76,0.97,0
  18.   COLOR 14,0
  19.   LOCATE 1,1:PRINT "Zeichnen Sie 'vier' gerade Linien, die"
  20.   LOCATE 3,1:PRINT "die neun Bäume mit einander verbinden."
  21.   LOCATE 5,1:PRINT "Nicht absetzen oder zurückgehen,und Sie"
  22.   LOCATE 7,1:PRINT "müssen'nicht'am Ausgangspunkt ankommen.
  23. anfang:
  24.   CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  25.   CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  26.   CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  27.   CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  28.   CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  29.   CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  30.   CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  31.   CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  32.   CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
  33.  
  34.   LINE (10,215)-(60,240),4,bf
  35.   LINE (9,214)-(61,241),17,b
  36.   LINE (70,215)-(137,240),4,bf
  37.   LINE (69,214)-(138,241),17,b  
  38.   LINE (150,215)-(200,240),4,bf
  39.   LINE (149,214)-(201,241),17,b  
  40.   LINE (230,215)-(280,240),17,bf
  41.   LINE (229,214)-(281,241),10,b
  42.   COLOR 17,4
  43.   LOCATE 29,4:PRINT "NEU"
  44.   LOCATE 29,10:PRINT "ZEICHNEN"
  45.   LOCATE 29,20:PRINT "LÖSUNG"
  46.   COLOR 10,17
  47.   LOCATE 29,31:PRINT "ENDE"
  48.  
  49. taste:
  50.      ON MOUSE GOSUB mausdruck
  51.      MOUSE ON
  52.      WHILE 1 : WEND
  53. mausdruck:
  54.      druck=MOUSE(0)
  55.      x=MOUSE(3) : y=MOUSE(4)
  56.    IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
  57.    IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich 
  58.    IF x>170 AND x<180 AND y>230 AND y<240 THEN GOSUB aufloe
  59.    IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB  ende
  60. RETURN
  61. neu:
  62.     LINE (0,0)-(310,210),0,bf
  63.   CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  64.   CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  65.   CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  66.   CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  67.   CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  68.   CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  69.   CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  70.   CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  71.   CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
  72. RETURN
  73. aufloe:
  74.   LINE (0,0)-(310,210),0,bf
  75.   CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  76.   CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  77.   CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  78.   CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  79.   CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  80.   CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  81.   CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  82.   CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  83.   CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
  84.   FOR i=-0 TO 150 STEP 0.2
  85.   PSET (180-i,180),4
  86.   NEXT i
  87.   FOR i=-0 TO 150 STEP 0.2
  88.   PSET (30+i,180-i),4
  89.   NEXT i
  90.   FOR i=32 TO 180 STEP 0.2
  91.   PSET (180,i),4
  92.   NEXT i
  93.   FOR i=0 TO 120 STEP 0.2
  94.   PSET (180-i,180-i),4
  95.   NEXT i
  96. RETURN  
  97. zeich:
  98.     LINE (0,0)-(310,210),0,bf
  99.   CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  100.   CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  101.   CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  102.   CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  103.   CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  104.   CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  105.   CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  106.   CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  107.   CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
  108.  
  109.    ON MOUSE GOSUB linien:GOSUB mau
  110.    MOUSE ON
  111.    WHILE -1
  112.    WEND 
  113.    linien:
  114.    Test=MOUSE(0)
  115.    x1=MOUSE(3) : y1=MOUSE(4)
  116.    PSET (x1,y1),4
  117.    WHILE MOUSE(0)<>0
  118.    WEND
  119.    LINE (x1,y1)-(MOUSE(5),MOUSE(6)),4
  120. mau:
  121.    dr=MOUSE(0)
  122.    x=MOUSE(1) : y=MOUSE(2)
  123.    IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
  124.    IF x>170 AND x<180 AND y>230 AND y<240 THEN GOSUB aufloe
  125.    IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB  ende
  126.    IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich 
  127.    RETURN
  128.     
  129. ende:
  130.    WINDOW CLOSE 1
  131.    SCREEN CLOSE 1
  132.    SYSTEM
  133.    END
  134.    
  135. '**********************************************************************
  136. ' Detlef Kornatz
  137. ' Feuerbachstraße 6
  138. ' D-4300 ESSEN 1
  139. '***********************************************************************
  140.  
  141.